5 PRINT"[147][144]":POKE53280,12:POKE53281,12
100 DATA 169,0,133,144,162,1,32,198,255,169,0,141,1,35
110 DATA 169,0,141,2,35,165,144,208,89,32,228,255
120 DATA 201,13,208,54,32,210,255,238,1,35,173,1,35
130 DATA 201,22,144,227,160,0,185,116,32,32,210,255
140 DATA 200,192,6,208,245,32,204,255,32,228,255
150 DATA 201,0,240,249,201,81,240,45,160,0,169,20
160 DATA 32,210,255,200,192,6,208,248,240,176,168,41,127
170 DATA 201,32,176,2,160,46,152,172,2,35,204,0
180 DATA 35,176,6,238,2,35,32,210,255,208,165,240,163,32,204,255,96
190 DATA 60,77,79,82,69,62
200 FOR J=8192 TO 8313
210 READ X:T=T+X
220 POKE J,X
230 NEXT J
240 IF T<>15477 THEN STOP
500 PRINT CHR$(14):PRINT CHR$(157);:L0=POS(0):PRINT:POKE 8960,L0
505 PRINT"[147][205]ORE: [212]EXT [198]ILE [210]EADER"
510 INPUT "[206]AME OF FILE";F$
520 OPEN 15,8,15
530 OPEN 1,8,3,F$
540 INPUT#15,E,E$,E1,E2:IF E<>0 THEN PRINT E$;E1;E2:STOP
550 SYS 8192
560 CLOSE 1
570 CLOSE 15